home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / TextEditor.rexx < prev    next >
OS/2 REXX Batch file  |  1999-02-10  |  1KB  |  52 lines
  1. /*
  2. $ver: TextEditor.rexx 1.1 (05.09.98) BLABLA PRODUCT
  3. © 1998 Siumot/BlaBla
  4.  
  5. Ten skrypt jest przeznaczony dla gadûetu MUI o nazwie TextEditor.
  6. Sprawdza on poprawnoôê pod wzglëdem ortograficznym wyrazów pisanych w tym
  7. gadûecie. Ten skrypt bëdzie wykorzystywany przez wszystkie programy
  8. korzystajâce z gadûetu TextEditor (np. YAM).
  9.  
  10. Instalacja:
  11. 1. Skopiowaê skrypt do katalogu "rexx:"
  12. 2. Uruchomiê program konfiguracyjny MUI
  13. 3. Wybraê konfiguracjë klasy TextEditor
  14. 4. Wybraê stronë "Korekta"
  15. 5. Przestawiê gadûet cykliczny "Sprawdzanie" na "ARexx"
  16. 6. Do gadûetu tekstowego leûâcego obok gadûetu cyklicznego wpisaê tekst
  17.    o treôci: rexx:TextEditor.rexx "%s"
  18. 7. Zapisaê konfiguracjë
  19.  
  20. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu instalatorem Orta,
  21.          to musisz dopisaê nastëpujâcâ linië:
  22.          ORTFILENAME=ôcieûka dostëpu/Ort
  23.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  24.          do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
  25. */
  26.  
  27. OPTIONS RESULTS
  28.  
  29. parse arg wyraz
  30.  
  31. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  32.    IF ORTFILENAME='ORTFILENAME' THEN DO
  33.      Say 'Program Ort nie jest uruchomiony.'
  34.      EXIT
  35.    END
  36.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'" CX_POPUP'
  37.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  38. END
  39. ADDRESS '2b_Ort_rexx'
  40.  
  41. IF ~(wyraz='') THEN DO
  42.   Correction wyraz
  43.   err=RESULT
  44. END
  45. ELSE err=0
  46.  
  47. IF err=0 THEN wynik=1; ELSE wynik=0
  48.  
  49. ADDRESS COMMAND SetEnv "Found" wynik
  50.  
  51. EXIT
  52.